﻿Imports ImobWeb.Dominio
Imports ImobWeb.Dal

Public Class ClienteNegoc
    Implements IClienteNegoc

#Region "Classes Injetadas"

    Private _clienteDao As IClienteDao
    Public Property ClienteDao() As IClienteDao
        Get
            Return _clienteDao
        End Get
        Set(ByVal value As IClienteDao)
            _clienteDao = value
        End Set
    End Property

#End Region

    Public Overridable Function Buscar(ByVal _id As Long) As Cliente Implements IClienteNegoc.Buscar

        Return Me.ClienteDao.Buscar(_id)

    End Function

    Public Sub Salvar(ByVal _cliente As Cliente) Implements IClienteNegoc.Salvar

        Me.ClienteDao.Salvar(_cliente)

    End Sub

End Class